home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER2 / ROCKET / ROCKET2.BAS < prev    next >
BASIC Source File  |  1994-01-01  |  1KB  |  63 lines
  1. ' ROCKET2.BAS
  2.  
  3. SCREEN 12
  4. WINDOW (-32, -24)-(32, 24)
  5.  
  6. ' a tunnel conveyor belt
  7. FOR frame = 0 TO 200
  8.    nudge = 2 - (frame MOD 20) / 10
  9.    LOCATE 10, 38: PRINT USING "### "; frame
  10.    ' pause code - use as needed
  11.    FOR w = 1 TO 1000: NEXT w
  12.  
  13.    'the tunnel
  14.    FOR px = -15 TO 16
  15.    'undraw
  16.       ox = px + nudge + .1
  17.       IF px MOD 2 = 0 THEN
  18.          LINE (ox - .5, -2)-(ox + .5, 2), 0, B
  19.       ELSE
  20.          LINE (ox - .5, -.5)-(ox + .5, .5), 0, B
  21.       END IF
  22.  
  23.    'draw
  24.       x = px + nudge
  25.       IF px MOD 2 = 0 THEN
  26.          LINE (x - .5, -2)-(x + .5, 2), 15, B
  27.       ELSE
  28.          LINE (x - .5, -.5)-(x + .5, .5), 15, B
  29.       END IF
  30.    NEXT px
  31.  
  32.    'the ship
  33.    rocketx = -40 + frame / 3
  34.  
  35.    'undraw
  36.    FOR section = -4 TO 4
  37.       LINE (orx - .4 + section, ory - .05)-(orx + .4 + section, ory + .05), 0, BF
  38.    NEXT section
  39.  
  40.    'draw
  41.    FOR section = -4 TO 4
  42.       LINE (rocketx - .4 + section, rockety - .05)-(rocketx + .4 + section, rockety + .05), 4, BF
  43.    NEXT section
  44.  
  45.    'save
  46.    orx = rocketx
  47.    ory = rockety
  48.  
  49.    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  50.    'traveling "chaser" lights using modulo math again
  51.    'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
  52.  
  53.    trl1 = -16 + frame MOD 16
  54.    trl2 = 0 + frame MOD 16
  55.  
  56.    LINE (trl1, -5)-(trl1, 5), count
  57.    LINE (trl2, -5)-(trl2, 5), count
  58.  
  59.    IF trl2 = 0 THEN count = count + 1
  60.  
  61. NEXT frame
  62.  
  63.